home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Dylan Related / Dylan alpha demos / Online Insultant Pro src ƒ / Application.dylan next >
Encoding:
Text File  |  1994-12-13  |  710 b   |  22 lines  |  [TEXT/ttxt]
  1. language: infix-dylan
  2. module: Online-Insultant
  3.  
  4. /* Copyright (C) 1994, Apple Computer, Inc. All rights reserved. */
  5.  
  6. define-framework-library("Online-Insultant");
  7.  
  8. define constant init-Online-Insultant = method()
  9.   init-Online-Insultant-menus();
  10.   unless(Speech-Available?())
  11.     /* warn the user with an alert */
  12.     /*--- I wonder if the framework provides a better way to do this ---*/
  13.     signal("This is more fun if you install Speech Manager and Text-to-Speech");
  14.   end unless;
  15.  
  16.   /* Do a gratuitous New Insult command when started up */
  17.   open(make-insult-window());
  18. end;                                   
  19.  
  20. set-library-init-function(init-Online-Insultant)
  21.  
  22. define constant run-Online-Insultant = start;